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1.0 SUMMARY 


This simulator was created so that C-1^1 Kuiper Airborne Observatory (KAO; 
ref. 1 ) investigators could test their Airborne Data Acquisition and Management 
System (ADAMS; ref. 2) software on a system which is generally more accessible 
than the ADAMS on the plane. An investigator can currently test most of his data 
acquisition program using the data computer simulator (ref. 2) in the Cave. (The 
"Cave" refers to the ground-based computer facilities for the KAO and the 
associated support personnel.) The main Cave computer is interfaced to the data 
computer simulator in order to simulate the data-Exec computer communications 
(ref. 2). However, until now, there has been no way to test the data computer 
interface to the tracker. The simulator described here simulates both the KAO 
Exec and tracker computers with software which runs on the same Hewlett-Packard 
(HP) computer as the investigator's data acquisition program. A simulator control 
box is hardwired to the computer to provide monitoring of "tracker" functions, to 
provide an operator panel similar to the real tracker, and to simulate the 180° 
phase shifting of the chopper square-wave reference with beam switching. If run 
in the Cave, one can use their Exec simulator and this tracker simulator. 

The investigator's data acquisition program needs no modification to use 
this simulator. The data program makes its normal calls to the standard tracker 
and Exec subroutines. These subroutines, in turn, call simulator versions of the 
tracker and Exec driver routines, which replace the standard versions at load 
time. These driver routines communicate with a background program which replaces 
the tracker and the Exec computers. This programming structure requires the 
multitasking environment of RTE IVb (ref. 3), HP's disk based operating system. 

An early version of the simulator software can also be run under BCS (ref. 4), 

HP's memory resident operating system. However, this version does not provide as 
good a simulation of the tracker, because the switches on the front panel of the 
simulator control box are not always live. 

The simulator control box has buttons and indicator LEDs for right beam, left 
beam, nod enable, telescope steady, loss of track, Exec communications status, and 
tracker communications status. To test a data acquisition program with an 
infrared detector system and a chopped source on-line, run the chopper reference 
through the simulator control box. The reference will switch phase when beam 
switching occurs, thereby causing the demodulated detector signal to change 
polarity in the data recording system. Thus, practical testing of the entire 
experiment can be accomplished using the investigator's detector system and 
software, the ADAMS (data computer) simulator, and the present telescope simulator 
hardware and software. 


2.0 GETTING STARTED 


2.1 Files Required 

The source files for use with the simulator are &NSIM, which contains the 
main simulator program, &NBLIB, which contains the drivers for the simulator 
control box, and &NSLIB, which contains replacement drivers for the standard 
tracker and Exec drivers (in the investigator's data acquisition program). 

Source listings for these routines are given in the Appendix. The routines &NSIM 
and &NSLIB are written in Fortran IV, but &NBLIB is written in HP Assembly 
(ref. 5). The Fortran files should work equally well under Fortran IV+. 
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2.2 Changes to the Data Acquisition Program 

The telescope simulator software was designed so it can be used with an 
investigator's standard data acquisition program. The only changes required are 
to the. procedure used to load it. However, as described below, one change to the 
investigator's data acquisition program is desirable. 

When the investigator's data program is loaded and executed, the first call 
to a tracker or Exec subroutine will run the simulator program, NSIM. However, 
NSIM does not automatically stop when the data acquisition program is stopped. 

It must either be explicitly stopped before the data program is run again, or the 
data program must be slightly modified so that it will stop NSIM. The code 
required is: 

C 

C TELL THE SIMULATOR TO STOP 

C 

CALL SM0VE(20HBR, NSIM ,,,, , 1 , 20, IBUF, 1 ) 

CALL MESSS( IBUF, 7 ) 


These lines of code should be put at the very end of the data program, just 
ahead of the 'STOP' or 'CALL EXEC(6) ' statement. They can remain in the program 
permanently. If the simulator program is not running and this code is executed, 
it will be ignored by the operating system. When adding this code, remember that 
IBUF is an integer array which must be dimensioned *»0 or more. Since this code is 
the last to be executed, it can use any user defined array that is sufficiently 
large. 

2.3 Compiling and Loading the Programs 

The simulator program, NSIM, can be compiled with: 

RU, FTN^t.&NSIM, ,- 
RU, ASMB, &NBLIB, , - 

and loaded with: 

RU, LOADR, #NSIM 

where the file #NSIM contains the following commands: 

OP, LB 
OP, DC 
RE, ?NSIM 
SE, $NBLIB 
EN 

Then type 'SP,NSIM' to save the program on disk. NSIM needs to be loaded only 
once, as it is the same for all investigators. 
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The data acquisition program and all of its subroutines can be compiled in 
the usual manner. To load the program, the KAO utility subroutines TBLT AND BLT 
must be replaced with the simulator versions of these same routines. To do this, 
simply comment the appropriate lines out of the loader procedure file with a 
double asterisk and relocate the module $NSLIB in their place. An example of a 
generalized loader procedure file using the simulator drivers is shown below. 

The lines '...' indicate the location of the user’s normal loader commands. 

ECHO 
OP , . . ♦ 

OP , . . . 

RE , . . . 

SE, ... 

SE, . . . 

• • • 

• • • 

**, LOAD TRACKER LIBRARY, #* 

• • • 

• • • 

**RE, R$BLT 
**RE,R$TBLT 
RE, $NSLIB 


EN 

To operate with the ’real’ Exec when running on the Cave simulator, use the 
command ’RE,R$BLT' in the loader procedure file to relocate BLT and then use 
'SE,$NSLIB' to search for the simulator version of the tracker routine TBLT. 

2.4 Running the Programs 

To run the data acquisition program using the telescope simulator, program 
NSIM must not be running, but must be RP'ed (ref. 6). To stop NSIM if it is 
running, execute the command ’SYBR.NSIM’ from the file manager (ref. 6). If NSIM 
does not respond with "NSIM STOP", then it is 'stuck' and needs an 'OF, NSIM, 8' 
command issued from the file manager two times. Usually the first 'OF, NSIM, 8' 
command is sufficient, but the second one never hurts. NSIM can be RP'ed by 
typing 'RP, NSIM ' from the file manager. If this command returns a FMGR 023 
error, the program is already RP'ed. In this case, ignore the error and proceed 
with running the data acquisition program. 

These commands can be put in a procedure file and 'transferred to' from the 
file manager. The following procedure file will work for running a program called 
NDATA: 


: SYBR.NSIM 
:0F, NSIM, 8 
:0F, NSIM, 8 
:RP, NSIM 
sRU, NDATA 

If the data acquisition program aborts with a SC05 error, NSIM was not RP'ed. 
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3.0 AN OVERVIEW OF THE SIMULATOR 

This simulator was designed to simulate the rudimentary functions of the 
tracker and the Exec. It does not provide a complete and thorough simulation of 
either. However, it is very useful and has allowed us to find and correct many 
obscure errors and to fine-tune our software. The one major area not simulated is 
the raster-type tracker functions. These could be added at a later date if 
desired. The simulator functions currently supported are: 

The tracker: 

Control the simulator control box LEDs 
BNOD Turn on nod mode 

MOVE Move the telescope (nod) 

ERS Turn off raster scan or nod mode 

STEDY Wait until telescope is steady 

TRST Update the tracker status area of Data CPU common 
Tracker communications up/down 

The Exec: 

Read the Exec housekeeping buffer 
Exec communications up/down 

The only Exec housekeeping words (ref. 2) that are updated are UT and RANG, 
Universal Time and Rotation ANGl e, respectively. The RANG variable is incremented 
by 0.20 degrees each minute. The object label is defined as "NO 
OB JECT( SIMULATOR)". 

A flow diagram for a data acquisition program’s interfaces with program NSIM 
is given in figure 1. The only nonstandard routines in the data program are the 
driver routines TBLT and BLT, which handle tracker and Exec communications, 
respectively. The simulator versions of these routines call SEXEC (simulator 
EXEC ) , which communicates with the simulator program (NSIM) using bidirectional 
class READS and WRITES (ref. 7). The standard KAO routines do EXEC (ref. 7) reads 
and writes to the appropriate logical units instead. 


4.0 OPERATING THE SIMULATOR 

The simulator control box operates much like the tracker, although the lights 
are smaller and the buttons are in different places. When it is first turned on, 
the lights can be in one of three possible configurations: 

1) All lights on, 

2) All lights off, or 

3 Some lights on/off. 

The cases 1 and 2 are normal. Case 1 occurs when the computer has been booted 
and the simulator has not yet been run. Case 2 occurs when the simulator program 
turned off all of the lights before terminating. Case 3 means that the simulator 
program was aborted or is still running and needs to be stopped. To stop the 
program, check that no one else is using it and then type ’SYBR.NSIM’. If the 
message "NSIM STOP" is not displayed shortly, type ’OF, NSIM, 8’ twice. 
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The simulator program displays "NSIM ON" on the terminal when it is started. 
The lights on the simulator control box should then be as follows (from right to 
left): 

Bit Function Status 


0 

Left Beam 

Off 

1 

Right Beam 

Off 

2 

Nod Mode 

Off 

3 

Telescope Steady 

On 

H 

Loss of Track 

Off 

5 

Exec Communications 

On 

6 

Tracker Communications 

On 


Pressing a switch associated with bits 3» M, 5, or 6 should toggle the 
corresponding light. Bits 0 and 1 are mutually exclusive and, in addition, are 
controlled by bit 2. That is, if nod mode (bit 2) is turned off, then the left 
(bit 0) and right beam (bit 1) lights will both be off. If nod mode (bit 2) is 
enabled, either the left or right beam light will be on. 

Note that bits 5 and 6, which simulate the Exec and tracker communications 
status, respectively, are additions not found on the real tracker. Bit 5 
simulates loss of Exec communications and bit 6 simulates loss of tracker 
communications. The data terminal should display the appropriate error messages 
when this occurs. This can be a good test of the error handling portion of a 
data acquisition program. Interesting tests are to change beams or turn nod mode 
off while the data acquisition program is taking data. These types of errors do 
not generate a 'Loss of Track' error, so the data program may be fooled. 

If the simulator control box is powered on and all of the lights are off, 
either everything is okay or the cable that connects the box to the computer is 
not connected properly. If NSIM runs and says "NSIM ON" and no lights come on, 
then the cable is probably disconnected. 

If the lights come on in the correct configuration initially, but the 
switches are not live, then the cable is probably connected, but the NSIM program 
reacts as if the cable is disconnected. This can occur because NSIM was designed 
to run quite well without the simulator box. There are three conditions that can 
cause NSIM to act as if the the box is disconnected: 

1) The simulator box is powered off, 

2) The interconnecting cable is not connected at both ends, or 

3) The toggle switch on the back of the control box is in 

the 'bit 13' position. 

If one of these conditions exists, NSIM will set the tracker 
status to: 


Exec communications Up 

Tracker communications Up 

Loss of track Off 

Telescope steady On 
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To see NSIM set these defaults, toggle the ’bit 13' switch on the back of the 
simulator box. 


5.0 PROGRAM NSIM, PROGRAMMER'S NOTES 
The simulator program is divided into five sections: 

1) Initialization 

2) Exec CPU Common 

3) Simulator Control Box 

4) TBLT and BLT requests 

5) Errors 

A source listing is provided in the Appendix. NSIM has a priority of 19. To 
prevent it from dominating the CPU, it suspends itself for 20 msec within its 
main loop. 

5.1 Initialization 

The NSIM run command looks like this: 

"RU.NSIM.LU, 177, CLASS NUMBER" 

The LU passed in the run string is the logical unit of the terminal running the 
data acquisition program. The '177' is used to make sure that NSIM was not run 
from the file manager because NSIM is designed to run from the data acquisition 
program through TBLT and BLT subroutine calls. The class number passed in the run 
string was assigned by the SEXEC subroutine from within the data acquisition 
program. When properly run, NSIM prints "NSIM ON" and enters its main loop. For 
a detailed description of the class I/O communications between NSIM and SEXEC, see 
section 7.3 

5.2 EXEC CPU Common 

The variable UT (Universal Time) is updated approximately every 20 msec. The 
variable RANG (Rotation ANGl e) is incremented by 0.20 degrees each minute. The 
object label is defined as "NO 0BJECT( SIMULATOR)". 

5.3 Simulator Control Box 

The simulator control box switches are polled approximately every 20 msec. 

If any of the three conditions which cause the box to be 'disconnected' are 
present (see section M.0), NSIM will set the simulator to its default conditions. 
If the simulator box is 'connected', its switches can be used to change the Exec 
or tracker status. 

5. 4 TBLT and BLT Requests 

The TBLT and the BLT requests are distinguished, as are the read and write 
requests. If there is a read request, the data is read. If there is a write 
request, a data header and the data are written. 
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5.5 Errors 


If an error occurs in the initialization section, NSIM tries to deallocate 
the class number. If an unrecognizable data header buffer is read, NSIM reports 
"/NSIM: BAD DATA IN CLASS HEADER" on the data terminal and the contents of the 
header record are printed. The 'bad' class buffer is cleared from the class queue 
and a special error-reporting data header is sent to SEXEC. If there is not 
enough system available memory (SAM) (ref. 8) for NSIM to send the requested data 
to SEXEC, NSIM sends a message telling about the "SAM shortage" and then sends a 
special error-reporting data header to SEXEC. Since these errors occur seldom, 
if ever, subroutine SEXEC does not check for errors in the buffer, but simply 
returns normally. 


6.0 THE SIMULATOR CONTROL BOX DRIVER 


6.1 Overview 

The control box driver is written in HP Assembly and uses the $LIBR and $LIBX 
system calls (ref. 7) to allow direct manipulation of the HP 12566B Microcircuit 
Interface card (ref. 9). This avoids the need for a special purpose driver that 
would have to be incorporated into the operating system, thus defeating the 
telescope simulator's main goal: transparency. 

A source listing for the driver is given in the Appendix. The variable 'BOX' 
(located on line 131 of the driver) corresponds to the select code of the 
Microcircuit Interface when installed in the simulator CPU backplane. The select 
code of the slot containing the card can be found on the CPU chassis just to the 
right of the card. It is an octal number, as is the variable 'BOX' (Consult the 
Assembler Reference Manual (ref. 5) for information on using octal numbers). 

6.2 Hardware Configuration 

The HP 12566B Microcircuit Interface card with option 002, which provides for 
the transfer of positive-true signals to and from the I/O device (ref. 9), should 
be placed in an empty slot in the CPU backplane. If there is a priority 
interrupt fence, the card should be placed above it. Remember to turn off the 
power to the CPU before inserting or removing cards, or connecting cables. The 
system's behavior should be unaffected by the installation of this card. 


7.0 THE SUBROUTINES SEXEC, TBLT, AND BLT 


7.1 Overview 

The source listings for SEXEC, TBLT, and BLT are in the Appendix and a 
diagram of program flow is given in figure 1. SEXEC is the simulator's EXEC 
subroutine. SEXEC does all the class I/O between the data acquisition program 
and NSIM. The arguments of subroutine SEXEC are different from those of an EXEC 
call. The simulator versions of TBLT and BLT are similar to the standard TBLT 
and BLT routines, except that the EXEC calls have been converted to SEXEC calls 
and there are fewer possible error returns. 
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7.2 Initialization 


The first call to SEXEC requests a class number for use in communicating 
with NSIM and then schedules NSIM with an EXEC(IO) call. This class number and 
the logical unit of the data terminal are passed in the run string. 

7.3 Class I/O 

A single class number is used to do bidirectional data transfers. NSIM 
polls the class number with a class GET that leaves the data in the class buffer. 
If the buffer is a header buffer and the header is intended for NSIM, then NSIM 
will take the header buffer from the class buffer and do as directed by the 
header. The header may indicate that a data buffer for NSIM is the next item in 
the class queue. In that case, NSIM will also take the data buffer from the class 
queue . 

SEXEC puts a header buffer and a data buffer into the class queue. If SEXEC 
is expecting a response from NSIM, SEXEC polls the class number in much the same 
fashion as NSIM. When SEXEC gets the expected header buffer and data buffer, 

SEXEC returns the appropriate data to TBLT or BLT, whichever called SEXEC. 

If SEXEC detects an error-reporting header buffer, it removes it from the 
queue and returns normally to its calling subroutine. This lack of error 
checking on the part of SEXEC is generally not a problem, as this type of class 
, I/O has proven extremely reliable. 


8.0 HARDWARE AND SOFTWARE REQUIREMENTS 
The following hardware is required: 

1) HP 2115, 2116 OR 2117 Computer (HP 1000 M, E, OR F) , and 

2) HP 12566B-002, Microcircuit Interface Card, Positive True (ref. 9), 

and the following hardware is optional, but desirable: 

3) Simulator control box, 

4) Interconnecting cable. 

The source code in the Appendix contains the interface card strap settings 
and a description of the cable wiring. Chapter 9 gives a more detailed 
description of the simulator control box and associated hardware. 

The following software is required: 

1 ) RTE-IVB Operating System, 

2) &NSIM, Telescope Simulator, 

3) &NBLIB, Simulator Control Box Driver, 

4) &NSLIB, SEXEC and the Simulator versions of TBLT and BLT, 

5) A Data Acquisition Program, 

6) Regular Tracker Software. 
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9.0 SIMULATOR CONTROL BOX HARDWARE 

The simulator control box provides monitoring of the HP 1000 computer output 
bits and provides push-button control of the input bits. Note that this unit may 
be used for any I/O monitoring purpose, as well as for telescope simulation. 

A five-foot cable is provided to connect the simulator control box to the HP 
1000 computer. At the HP computer a standard HP 48 pin connector (part of I/O 
card 12566-60025 option 002 kit) connects to the I/O card with HP cable 8120-1846 
(also part of the I/O kit). The cable is terminated in a Cannon 20-41 S MS 3126 F 
connector, which mates with a Cannon connector on the simulator control box. For 
laboratory work at Ames Research Center in Building 245, a similar cable is 
connected to four 10-point terminal blocks. These terminal blocks are wall 
mounted in the first floor breezeway of Building 245. The terminal blocks 
furnish test points for all input and output bits. At the terminal blocks a very 
long cable is connected to input bits 0 through 13. Bits 14 and 15 are not used 
because the cable does not contain sufficient wires. This cable enters Room 115 
from the breezeway and is long enough to use in Room 111. 

Within the simulator control box, the HP computer output bits 0 thru 13 sink 
current for light emitting diodes (LED). The LED’s have current limiting 
resistors connected to the positive 5 volt supply. When an HP computer output 
bit is low (i.e., approximately 0 volts), the corresponding LED will be lit. 

Bit 0 or 1 is selected as one input to an exclusive-or gate (ref. 10) by a 
rear panel switch. The other input to the exclusive-or gate is a TTL level, 
nominal square wave, chopper reference signal. This chopper signal is isolated 
by an optical coupler connected to a front panel mounted BNC connector. Thus the 
input chopper signal comes in through the BNC to the opto-isolator , which then 
transfers the signal to the exclusive-or gate. The selected bit, 0 or 1 , then 
provides 0° or 180° phase shifting of the chopper signal. The output of the 
exclusive-or gate in normal or inverse phase is fed to a panel mounted BNC 
connector. For tracker simulation, bits 0 and 1 represent right and left beams 
and are, therefore, the inverse of each other. Thus, the phase of the chopper is 
switch selectable to match either beam position and inverts with beam change, 
simulating the phase shift of the detector signal relative to the chopper 
reference when the telescope chopper switches position. 

Within the box, HP input bits 0 thru 13 are connected to panel mounted, 
grounded, normally open, push-button switches. Thus, pushing a button 
corresponding to a particular bit causes that input to go to 0 volts. No pull-up 
resistors are provided, since source currents from the HP computer inputs provide 
pull-up. Also, no debounce circuitry is provided and software must included 
debouncing. 

Input bit 13 may be selected as a special, hookup test bit by using a second 
rear panel switch. This switch connects a transistor to input bit 13. When 
power is on, this transistor is on, and if both ends of the cable are connected, 
the HP computer will read input bit 13 as low (i.e., approximately 0 volts). If 
the simulator power is off, or one or both ends of the cable are disconnected, 
input 13 will read high (i.e., approximately 5 volts). Therefore, when the rear 
panel switch is closed, bit 13 indicates that the simulator is connected to the 
computer and is powered. 
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The simulator control box also contains a Datel model UPM-5/1000, 5.0 volt, 
1.0 amp power supply, a power indicator light, a power switch, and a 0.5 amp fuse. 
Figures 2 through 5 and Table 1 show the front panel and circuit diagrams for the 
simulator box. 

For tracker simulation the switches on the back of the box are in the ground 
and bit 0 positions. These are the upward positions of the switches. 
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10.0 APPENDIX, PROGRAM SOURCE LISTINGS 


10.1 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
001 1 
0012 

0013 

0014 
001 5 
0016 

0017 

0018 
001 9 
0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 


Source Listing for Program NSIM 
FTN4 

PROGRAM NSIM(3,19), TRACKER AND EXEC SIMULATOR (831021.1525) 
IMPLICIT INTEGER(A-Z) 

REAL UT, RANG 
LOGICAL IFBRK 
EXTERNAL IFBRK 
C 
C 

C TRACKER COMMON 
C 

C SEE BLOCK DATA FOR COMMENTS ABOUT WHAT TRACKER COMMON WORDS ARE USED 
C FOR WHAT. 

C 

COMMON /TRACK/ TC0M(200) 

C 

C 

C EXEC COMPUTER COMMON 
C 

C SEE BLOCK DATA FOR COMMENTS ABOUT WHAT EXEC COMMON WORDS ARE USED 
C FOR WHAT. 

C 

COMMON /EXECC/ EC0M(500) 

C 

C 

C LET'S DEFINE SOME USEFUL VARIABLES. 

C 

INTEGER TSUBF(1 5) 

INTEGER MYNAME(3) 

INTEGER IBUFC5) 

INTEGER ITIME( 5) 

C 

C 

C SOME USEFUL EQUIVALENCES 
C 

EQUIVALENCE(TCOM(54) ,IPAUS) 

EQUIVALENCE( TCOM(55) , IRSON) 

EQUIVALENCE( TCOM( 56) , NODON) 

EQUIVALENCE(TC0M(57),LR) 

EQUI VALENCE( TCOM( 58 ) , L0SS1 ) 

EQUIVALENCE( TC0M( 78) , IRSX) 

EQUIVALENCE( TCOM( 79) , IMOVE) 

EQUIVALENCE(TC0M(80) , IXNOD) 

C 

EQUIVALENCE( EC0M(8) , IYEAR) 

EQUIVALENCE(EC0M(151 ),UT) 

EQUI VALENCE( EC0M( 1 65 ) , RANG) 

C 

EQUIVALENCE( IBUF( 1 ) , DEST) 

EQUI VALENCE( IBUF( 2 ) , ICODE) 


11 



0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 


EQUIVALENCE(IBUF(3) ,CPU) 

EQUIVALENCE( IBUF( 4 ) , ISUBF) 

EQUIVALENCE(IBUF(5) .SUBLEN) 

C 

C 

C STORAGE FOR LAST SWITCH SETTINGS 
INTEGER LASTSW 
C 

LOGICAL IBIT 
C 
C 

C FUNCTIONS AND DATA 
C 

C LOGICAL FUNCTION TO TEST TO SEE IF A BIT IS ON 
IBIT(I, J)-(IAND(I f J).NE.0) 

C 

C DATA 

DATA EXUP/1 / 

DATA TRKUP/1 / 

C 

C 

C TRACKER SUBFUNCTION OFFSETS INTO TRACKER COMMON 
C 0 MEANS I DO NOT KNOW WHAT THE OFFSET IS. 

C 

DATA TSUBF/52, 78,1 ,41 ,114,79,0,24,0,0,25,60,138,0,56/ 

C 

C 

C LET’S SET UP SHOP. 

C FIRST, MAKE SURE THAT WE HAVE BEEN RUN FROM "NDATA" NOT THE KEYBOARD. 

C 

CALL RMPAR(MYNAME) 

LU=MYNAME( 1 ) 

I=MYNAME(2) 

C 

C 

C GET CURRENT SWITCH SETTING. MAKE LAST SWITCH SETTING EQUAL TO CURRENT. 
C 

CALL TSGET( LASTSW) 

C 

C 

C CLASS IS OUR CLASS NUMBER WITH THE 'NO WAIT' BIT SET. 

C CLASSC HAS THE "LEAVE THE BUFFER IN MEMORY BIT SET." JUST 'CHECKING. 

C 

CLASS=IOR(MYNAME( 3 ) » 1 00000 B) 

CLASSW=IAND(MYNAME(3) .077777B) 

CLASSC=IOR ( C LASS , 40000B) 

CALL CHGLU(LU) 

CALL PNAME(MYNAME) 

WRITE(LU.II) MYNAME 
11 FORMAT( "/" , 2A2 , A1 ON") 

C 

C 

C WERE WE RUN BY NDATA? 
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0103 C 

0104 IF( I. EQ.1 77) GOTO 19 

0105 WRITE( LU, 1 0 ) MYNAME 

0106 10 F0RMAT("/",2A2,A1 , 

0107 &": THIS PROGRAM MUST NOT BE RUN FROM THE FILE MANAGER") 

0108 STOP 

0109 C 

01 10 C 

0111 C IS OUR NAME "NSIM"?. IF NOT, KILL OURSELF. 

0112 C 

0113 19 IF(MYNAME(1 ) .EQ.2HNS .AND. MYNAME(2) . EQ.2HIM .AND. 

0114 & MYNAME(3).EQ.2H ) GOTO 20 

0115 WRITE( LU, 21 ) MYNAME 

0116 21 FORMAT( "/" , 2 A2 , A1 , " : TYPE 'RP NSIM', THEN TRY AGAIN!") 

0117 GOTO 30 

0118 C 

0119 C 

0120 C START MAIN LOOP 

0121 C 

0122 C 

0123 C CHECK TO SEE IF THE BREAK FLAG IS SET. 

0124 C IF IT IS, TRY TO DEALLOCATE THE CLASS NUMBER. 

0125 C TURN OFF ALL TRACKER LIGHTS 

0126 C 

0127 20 IF(.NOT. IFBRK(I)) GOTO 40 

0128 C 

0129 C 

0130 C READ THE CLASS BUFFERS UNTIL ALL OF THEM HAVE BEEN READ. 

0131 C 

0132 30 CALL EXEC(21 .CLASS, 1,1) 

0133 CALL ABREG( A, B) 

0134 IF(A.GE.O) GOTO 30 

0135 C 

0136 C 

0137 C DEALLOCATE THE CLASS NUMBER 

0138 C 

0139 CALL EXEC (21 , 1 AND (CLASS, 01 7777B),I,1) 

0140 CALL TSPUT(-1 ) 

0141 STOP 

0142 C 

0143 C 

0144 C UPDATE EXEC HOUSEKEEPING 

0145 C 

0146 40 CALL EXEC(11 , ITIME, IYEAR) 

01 47 UT=FLOAT( ITIME( 4 ) ) +FLOAT( ITIME( 3 ) ) /60. 0 

0148 &+FLOAT( ITIME(2) )/3 600.0 

0149 &+FL0AT(ITIME(1 ) )/360000.0 

0150 C 

0151 C INCREMENT THE ROTATION ANGLE .20 DEGREES FOR EACH 1 MINUTE 

0152 C 

0153 IF( NSEC. EQ. ITIME( 3) ) GOTO 50 

0154 NSEC=ITIME(3) 

0155 RANG=RANG+.20 
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0156 IF(RANG.GE. 360.0) RANG=0.0 

0157 C 

0158 C 

0159 C CHECK THE STATUS OF THE CONTROL BOX SWITCHES. 

0160 C 

0161 C 

0162 C READ SWITCHES ON BOX 

0163 C 

0164 50 CALL TSGET(NOWSW) 

01 65 C 

0166 C 

0167 C IS THERE A CHANGE FROM THE LAST TIME WE LOOKED AT THEM? 

0168 C 

0169 I F ( NOWSW . EQ . L ASTSW ) GOTO 100 

0170 C 

01 71 C 

0172 C THE SWITCHES ARE SOME HOW DIFFERENT NOW. 

0173 C IS THE CABLE CONNECTED TO THE BOX?? 

0174 C 

0175 IF(. NOT. IBIT( NOWSW, 020000B)) GOTO 100 

0176 C 

0177 C THE CABLE IS DISCONNECTED. SET SOFTWARE TO DEFAULT STATE. 

01 78 C 

0179 C TRACKING ON STAR 1 

0180 C TELESCOPE STEADY. 

0181 C EXEC COMMUNICATIONS UP 

0182 C TRACKER COMMUNICATIONS UP 

0183 IPAUS=1 

0184 L0SS1 =0 

0185 EXUP=1 

0186 TRKUP=1 

0187 GOTO 110 

0188 C 

0189 C FIND WHICH SWITCH(ES) CHANGED 

0190 100 CHNGSW=IXOR( NOWSW, LASTSW) 

0191 C 

0192 C SET TRACKER TO CURRENT STATE AS PER THE SWITCHES 

0193 IF( IBIT(CHNGSW, 1 B) .AND. IBIT( NOWSW, 1 B) ) LR=0 

0194 I F ( IBIT(CHNGSW,2B) .AND. IBIT( NOWSW, 2B) ) LR=1 

0195 IF(IBIT(CHNGSW,4B) .AND. IBIT( NOWSW, 4B) ) N0D0N=M0D(N0D0N+1 ,2) 

0196 IF( IBIT(CHNGSW, 1 0B) .AND. IBIT( NOWSW, 1 OB) ) IPAUS=MOD( IPAUS+1 ,2) 

0197 IF( IBIT(CHNGSW, 20B) .AND. IBIT( NOWSW, 20B) ) L0SS1 =MOD( L0SS1 +1 ,2) 

0198 IF(IBIT(CHNGSW,40B) .AND. IBIT( NOWSW, 40B) ) EXUP=MOD( EXUP+1 , 2 ) 

0199 IF( IBIT( CHNGSW, 1 OOB) .AND. IBIT( NOWSW, 1 OOB) ) TRKUP=MOD( TRKUP+1 , 2) 

0200 C 

0201 C SAVE CURRENT SWITCH PATTERN FOR LATER 

0202 1 1 0 LASTSW=NOWSW 

0203 C 

0204 C SET TRACKER TO CURRENT SOFTWARE STATE 

0205 LED=1 B 

0206 IF(LR.EQ.I) LED=2B 

0207 LED=LED+4B 

0208 IF(NODON.EQ.O) LED=OB 
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0209 IF(IPAUS.EQ.1 ) LED=LED+1 OB 

0210 IF( L0SS1 . EQ. 1 ) LED=LED+20B 

0211 IF( EXUP. EQ. 1 ) LED=LED+40B 

0212 IF( TRKUP. EQ. 1 ) LED=LED+1 OOB 

0213 C 

021 4 C THE LEDS ARE OFF FOR 1 BITS AND ON FOR 0 BITS. 

0215 C WE SHALL INVERT THE BITS TO ACCOUNT FOR THIS. 

0216 LED=NOT( LED) 

0217 C 

0218 C SET THE LED'S TO THEIR CURRENT VALUES. 

0219 CALL TSPUT(LED) 

0220 C 

0221 C 

0224 C 

0225 C 

0226 C NOW FOR THE HARD PART. 

0227 C LET'S READ OUR CLASS NUMBER TO SEE IF THERE IS ANYTHING THERE FOR US. 

0228 C 

0229 CALL EXEC(21 ,CLASSC, IBUF,5) 

0230 CALL ABREG( A, B) 

0231 C 

0232 C 

0233 C DEST= INTENDED DESTINATION OF THE CLASS BUFFER. 

0234 C 0 = UNKNOWN TRANSFER. TRACKER IGNORES THESE. NDATA TREATES THEM 

0235 C AS A REQUEST TO RETRANSMIT THE DATA. 

0236 C 1 = FROM NDATA TO NSIM 

0237 C 2 = FROM NSIM TO NDATA 

0238 C ICODE= READ OR WRITE TO EXEC OR TRACKER 

0239 C 1 = READ 

0240 C 2 = WRITE 

0241 C CPU= DATA TRANSFER IS INTENDED FOR TRACKER OR EXEC 

0242 C 1 = TRACKER 

0243 C 2 = EXEC 

0244 C ISUBF= SUBFUNCTION OF THE CALL 

0245 C SUBLEN= SUBFUNCTION BUFFER LENGTH 

0246 C 

0247 C 

0248 C CHECK TO SEE IF THERE IS A BUFFER FOR US. 

0249 C 

0250 IF( A. LT. 0 .OR. DEST.NE.1) GOTO 10000 

0251 C 

0252 C 

0253 C THE BUFFER IS OURS, LET’S READ IT AND REMOVE IT FROM THE BUFFER. 

0254 C 

0255 CALL EXEC(21 ,CLASS, IBUF, 5) 

0256 C 

0257 C 

0258 C THERE IS A BUFFER OUT THERE FOR US. IS IT A READ OR A WRITE? 

0259 C 

0260 IF( ICODE. EQ. 1 ) GOTO 1000 

0261 IF( ICODE. EQ . 2) GOTO 2000 
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GOTO 20000 


0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 
0301 
0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 


C 

C 

C IT IS A READ FROM US. IS IT AN EXEC OR TRACKER READ? 

C 

1000 IF(CPU.EQ.I) GOTO 3000 
IF(CPU.EQ.2) GOTO 4000 
GOTO 20000 
C 
C 

C IT IS A WRITE TO US. IS IT AN EXEC OR TRACKER WRITE? 

C 

2000 IF(CPU.EQ.I) GOTO 5000 
C IF(CPU. EQ.2) GOTO 20000 
GOTO 20000 
C 
C 

C THIS IS A READ FROM THE TRACKER. SEND THE HEADER FIRST. 

C 

3000 CONTINUE 

IF( TSUBF( ISUBF) . EQ. 0) GOTO 20000 
DEST=2 

C ICODE=ICODE 

C CPU=CPU 

C ISUBF=ISUBF 

C SUBLEN=SUBLEN 

CALL EXEC(20,0, IBUF.5, I, I, CLASS) 

' CALL ABREG(A.B) 

IF( A. EQ .-2) GOTO 20100 
C 
C 

C SEND THE DATA 
C 

IF(TRKUP.EQ.O) GOTO 3100 

CALL EXEC(20,0, TCOM(TSUBF( ISUBF) ) , SUBLEN, TRKUP, I, CLASS) 
CALL ABREG( A, B) 

GOTO 3200 

3100 CALL EXEC(20, 0,0,1 , TRKUP, 0, CLASS) 

CALL ABREG(A.B) 

3200 IF( A. EQ.-2) GOTO 20100 
GOTO 10000 
C 
C 

C THIS IS A READ FROM THE EXEC. SEND THE HEADER FIRST. 

C 

4000 IF( ISUBF. NE. 8) GOTO 20000 
DEST=2 

C ICODE=ICODE 

C CPU=CPU 

C ISUBF=ISUBF 

C SUBLEN=SUBLEN 

CALL EXEC(20,0, IBUF,5, I, I, CLASS) 

CALL ABREG( A, B) 
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0315 

0316 

0317 

0318 

0319 

0320 
0321 
0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 
0362 

0363 

0364 

0365 

0366 
0367 


IF(A. EQ.-2) GOTO 20100 
C 
c 

C SEND THE DATA 
C 

IF(EXUP.EQ.O) GOTO 4100 

CALL EXEC( 20 , 0 , ECOM, SUBLEN, EXUP, I , CLASS) 

CALL ABREG(A.B) 

GOTO 4200 

4100 CALL EXEC (20, 0,0, 1 , EXUP, 0, CLASS) 

CALL ABREG(A.B) 

4200 IF( A. EQ.-2) GOTO 20100 
GOTO 10000 
C 
C 

C THIS IS A WRITE TO THE TRACKER. READ THE DATA BUFFER. 

C 

5000 IF( TSUBF( ISUBF) . EQ.O) GOTO 20000 
IF(TRKUP.EQ.O) GOTO 5100 

CALL EXEC ( 21 , CLASSW, TCOM( TSUBF( ISUBF) ), SUBLEN) 

GOTO 5200 

5100 CALL EXEC( 21 , CLASSW, 1,1 ) 

GOTO 20 
C 
C 

C LET'S PRETEND THE TRACKER DOES WHAT EVER NDATA WANTS IT TO. 

C 

5200 IRSON=IRSX 
N0D0N=IXN0D 

IF(IMOVE.NE.O) LR=M0D(LR+1 ,2) 

IMOVE=0 
GOTO 20 
C 
C 

C PAUSE THE PROGRAM FOR 20 MILLISECONDS 
C THEN GO BACK TO THE START OF THE LOOP 
C 

10000 CALL EXEC02, 0,1 ,0,-2) 

GOTO 20 
C 
C 

C WE HAD AN ERROR. BAD HEADER ERRORS WILL COME IN 2 'S, MOST OF THE TIME. 
C 

20000 WRITE(LU, 20010) MYNAME, IBUF 

20010 FORMAT( "/" , 2A2 , A1 , " : BAD DATA IN CLASS HEADER: '',6 15) 

C 

C 

C CLEAR OUT THIS 'BAD' BUFFER WITH OUR NAME ON IT. 

C 

CALL EXEC( 21 .CLASS, 1,1 ) 

C 

C 

C SEND A 'HUH' BUFFER TO NDATA. TELL IT WE GOT JUNK. 
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0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 
0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

041 1 

0412 

0413 

0414 

0415 

0416 

0417 

0418 
041 9 
0420 


C 

20020 1=0 

CALL EXEC(20,0, 1,1,1, I, CLASS) 

CALL ABREG( A, B) 

IF( A. EQ.-2) GOTO 20100 
GOTO 20 
C 
C 

C WE ARE HAVING A SAM SHORTAGE. TELL THE, WORLD. 

C 

20100 WRITE( LU, 201 1 0) MYNAME 

20110 F0RMAT("/",2A2, A1 ,": THERE IS A SAM SHORTAGE OVER HERE!") 

GOTO 20020 
END 

BLOCK DATA 

IMPLICIT INTEGER(A-Z) 

REAL UT, RANG 
C 
C 

C TRACKER COMMON 
C 

COMMON /TRACK/ TC0M(200) 

C 

C 

C EXEC COMPUTER COMMON 
C 

COMMON /EXECC/ ECOM(500) 

C 

C 

C 

C THE DEFINITION OF TRACKER COMMON CAN BE FOUND IN THE FILE CALLED 
C "T*TRSC" 

C 

C THE EXEC COMMON IS DEFINED IN THE "ADAMS HANDBOOK", APPENDIX A. 

C 

C 

C 

C SOME USEFUL EQUIVALENCES 
C 

EQUIVALENCEC TCOM( 54 ) , IPAUS) 

EQUIVALENCE( TCOM(55) , IRSON) 

EQUIVALENCE( TCOM( 56) , NODON) 

EQUIVALENCE( TCOM( 57 ) , LR) 

EQUI VALENCE( TCOM( 58) , L0SS1 ) 

EQUIVALENCEC TCOM(78) , IRSX) 

EQUIVALENCE(TCOM(79) ,IMOVE) 

EQUI VALENCEC TCOM(80) , IXNOD) 

C 

EQUIVALENCEC ECOM( 8) , HEAR) 

EQUIVALENCEC ECOM( 1 51 ) ,UT) 

EQUIVALENCEC ECOM( 165), RANG) 

C 
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0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 


DATA EC0MO71) /2HNO/ 
DATA EC0M(172) /2H 0/ 
DATA ECOM(173) /2HBJ/ 
DATA ECOM (174) /2HEC/ 
DATA EC0M( 1 75) /2HT(/ 
DATA EC0M(176) /2HSI/ 
DATA EC0M( 1 77 ) /2HMU/ 
DATA ECOM(178) /2HLA/ 
DATA ECOM(1 79) /2HT0/ 


DATA EC0M(1 80) /2HR) / 


DATA IPAUS/1 / 


DATA RANG/-. 20/ 


END 


10.2 Source Listing for the Simulator Control Box Driver 


0001 ASMB , R 

0002 NAM TSB0X.7 G. BOOZER TRACKER SIMULATOR BOX DRIVERS (830912.0908) 

0003 * 

0004 * &NBLIB SIMULATOR BOX DRIVER LIBRARY 

0005 * 

0006 ENT TSPUT, TSGET 

0007 EXT .ENTR,$LIBR,$LIBX 

0008 * 

0009 * 

0010 * TSPUT — TRACKER SIMULATOR PUT. 

0011 * 


0012 * 

0013 * 

0014 * 

0015 * 

001 6 * 

0017 * 

0018 * 

0019 * 

0020 * 
0021 * 
0022 * 

0023 * 

0024 * 

0025 * 

0026 * 

0027 * 

0028 * 

0029 * 

0030 * 

0031 * 

0032 * 

0033 * 

0034 * 


OUTPUT A WORD TO THE MICROCIRCUIT INTERFACE CARD. 
CALLING SEQUENCE: 

CALL TSPUT(I) 

WHERE I IS A WORD WITH BITS 
CORRESPONDING TO OUTPUT BITS. 

BIT I FUNCTION 


0 L LED 

1 R LED 

2 NOD MODE LED 

3 STEADY LED 

4 LOT LED 

5 EXEC COMMUNICATIONS LED 

6 TRACKER COMMUNICATIONS LED 

7 N/U NOT USED NOW BUT IS WIRED 

8 N/U 

9 N/U 

10 N/U 

11 N/U 

12 N/U 
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13 

14 

15 


0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 
0087 


* 

* 

# 

* 

* 

* 

* 

# 


SKP 

* 

* TSGET — TRACKER SIMULATOR GET. 

* 


N/U 

N/C NOT CONNECTED IN CABLE 
N/C 


* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

# 

* 

# 

# 

* 

* 

* 

* 

* 

# 

# 

* 

* 

# 

* 

* 


INPUT A WORD FROM THE MICROCIRCUIT INTERFACE CARD. 


CALLING SEQUENCE: 


CALL TSGET(J) 

WHERE J IS A WORD WITH BITS 
CORRESPONDING TO INPUT BITS. 


BIT 


FUNCTION 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


LEFT BEAM SWITCH 
RIGHT BEAM SWITCH 
NOD MODE SWITCHCH 
TELESCOPE STEADY SWITCH 
LOT SWITCH 

EXEC COMMUNICATIONS SWITCH 

TRACKER COMMUNICATION SWITCH 

N/U NOT USED NOW BUT IS WIRED 

N/U 

N/U 

N/U 

N/U 

N/U 

GROUND 

N/C NOT CONNECTED IN CABLE 
N/C 


NOTE: BIT 13 IS AT GROUND POTENTIAL «ONLY>> WHEN 

THE CABLE IS PLUGGED INTO THE CONTROL BOX. 
WHEN EITHER END OF THE CABLE IS DISCONNECTED, 
BIT 15 IS FLOATING. 


SKP 

# 


*== 


* 


* MICROCIRCUIT INTERFACE STRAP SETTINGS 

* 



# 


STRAP 


CONNECTION 
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0088 

# 


■ | 



0089 

* 

W1 


D/C 

DON'T CARE (PREFER FACTORY DEFAULT) 

0090 

* 

W2 


D/C 


0091 

x 

W3 


D/C 


0092 

* 

W4 


B 


0093 

* 

W5 


N/C 

NO CONNECTION 

0094 

x 

W6 


N/C 


0095 

x 

W7 


N/C 


0096 

x 

W8 


N/C 


0097 

x 

W9 


A 


0098 

x 





0099 

x 





0100 

x 





0101 

x 





0102 


SKP 




0103 

* 





0104 

I 

NOP 




0105 

TSPUT 

NOP 




0106 


JSB 

. ENTR 


0107 


DEF 

I 



0108 


JSB 

$LIBR 

TURN OFF INTERRUPT SYSTEM 

0109 


NOP 



AND MEMORY PROTECT 

0110 


LDA 

I. 

■ I 

GET WORD TO BE OUTPUT 

0111 


OTA 

BOX 

OUTPUT TO MICROCIRCUIT CARD IN SELECT CODE BOX 

0112 


JSB 

$LIBX 

TURN ON INTERRUPT SYSTEM AND MEMORY PROTECT 

01 13 


DEF 

TSPUT 

RETURN TO CALLING ROUTINE. 

0114 

* 





0115 

x 





0116 

x 





0117 


SKP 




0118 

* 





0119 

J 

NOP 




0120 

TSGET 

NOP 




0121 


JSB 

.ENTR 


0122 


DEF 

J 



0123 


JSB 

$LIBR 

TURN OFF INTERRUPT SYSTEM 

0124 


NOP 



AND MEMORY PROTECT 

0125 


LIA 

BOX 

INPUT FROM MICROCIRCUIT CARD IN SELECT CODE BOX 

0126 


STA 

J 

,1 

PUT RESULT INTO CALLING PROGRAM BUFFER 

0127 


JSB 

$LIBX 

TURN ON INTERRUPT SYSTEM AND MEMORY PROTECT 

0128 


DEF 

TSGET 

RETURN TO CALLING ROUTINE. 

0129 

x 





0130 

* 





0131 

BOX 

EQU 

12B 

SELECT CODE FOR MICROCIRCUIT CARD 

0132 

* 





0133 

* 





0134 


END 




10.3 

Source Listings for 

the Subroutines TBLT, BLT, and SEXEC 


The original lines of code are commented out with the 'CB' character string 
0001 FTN4X 
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0002 SUBROUTINE TBLT( IRW, ISUBF, IBUF, ILEN, IERR) 

0003 *,GAB &NSLIB Block transfer to Tracker (831 021 . 1 21 7) 

0004 INTEGER SEXEC 

0005 CB DIMENSION IA(2) 

0006 CB EQUIVALENCE ( AB, IA) , ( IB, IA( 2) ) 

0007 DATA LUTRK/20/ 

0008 IERR = 7 

0009 IF ( IRW. NE. 1 .AND. IRW.NE.2) RETURN 

0010 CB CALL EXEC( IRW+1 00000B, LUTRK+ISUBF*64 , IBUF, ILEN) 

0011 CB GO TO 900 

0012 CB1 1 CALL EXEC (13, LUTRK.IST1 ,IST2,IST3) 

0013 CB IEQT5 = I AND (IST1.377B) 

0014 CB IF ( IEQT5 .EQ. 0 ) IERR = 1 

0015 CB IF ( IEQT5 .EQ. 8 ) IERR = 5 

0016 CB IF ( IEQT5 .EQ.16 ) IERR = 2 

0017 CB IF (IEQT5 .EQ.32 ) IERR = 6 

0018 CB IF (IEQT5 .EQ.64 ) IERR = 4 

0019 CB IF ( IEQT5 .EQ.128) IERR = 3 

0020 CB RETURN 

0021 CBC Exec error 

0022 CB900 CALL ABREG( IA, IB) 

0023 CB WRITE( 1,903) AB, IRW, LUTRK, ISUBF, ILEN 

0024 CB903 F0RMAT( 'EXEC error in TBLT: *A4 

0025 CB #'EXEC( ' 13 ' +1 00000B, ' 12 ' + ' 12 ' *64, IBUF, • 14 * ) ') 

0026 C 

0027 C 

0028 C 

0029 IERROR=SEXEC( IRW, LUTRK+ISUBF*64 , IBUF, ILEN) 

0030 C 

0031 C ASSUME NO ERRORS 

0032 IERR=1 

0033 C 

0034 C IF ERROR, ASSUME TRACKER COMMUNICATIONS FAILURE 

0035 IF( IERROR. EQ .0) IERR=4 

0036 RETURN 

0037 END 

0038 C 

0039 SUBROUTINE BLT( IRW, ISUBF, IBUF, ILEN, IERR) 

0040 *, GAB &NSLIB Block transfer to EXEC (831021.1217) 

0041 INTEGER SEXEC 

0042 C 

0043 DATA LUEXEC/1 0/ 

0044 C 

0045 IERR = 7 

0046 IF ( IRW. NE. 1 .AND. IRW.NE.2) RETURN 

0047 CB CALL EXEC( IRW+1 00000B, LUEXEC+ISUBF*64, IBUF, ILEN) 

0048 CB GO TO 900 

0049 CB1 1 CALL EXEC ( 1 3 , LUEXEC, IST1 , IST2 , IST3 ) 

0050 CB IEQT5 = IAND (IST1.377B) 

0051 CB IERR = 1 

0052 CB IF ( IAND( IEQT5, 10B) .EQ. 10B ) IERR = 5 

0053 CB IF ( IAND( IEQT5 , 20B) .EQ. 20B ) IERR = 2 

0054 CB IF ( IAND(IEQT5, 40B) .EQ. 40B ) IERR = 6 


22 



0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 
007*1 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 
0107 


CB IF ( IAND( IEQT5, 1 00B) .EQ. 100B ) IERR = 4 

CB IF ( IAND( IEQT5, 200B) .EQ. 200B ) IERR = 3 

CB RETURN 

CBC Exec error 

CB900 CALL ABREG(IA.IB) 

CB WRITE( 1,903) IA, IB, IRW, LUEXEC, ISUBF, ILEN 

CB903 FORMATCBLT — > »2A2* Error on ' 

CB +’EXEC( ' 13 ' + 1 OOOOOB, ' 12 ' + ' 12 '*64 , IBUF, • 14 * ) •) 

C 

C 

C 

IERROR=SEXEC( IRW, LUEXEC+ISUBF*64, IBUF, ILEN) 

C 

C ASSUME NO ERRORS 
IERR-1 
C 

C IF ERROR, ASSUME EXEC COMMUNICATIONS FAILURE 
IF( IERROR. EQ.O) IERR=4 
RETURN 
C 
C 

INTEGER FUNCTION SEXEC( ICOD, ICNWD, IBUFF, ILEN) 

#, G. BOOZER TRACKER & EXEC SIMUL. COMM. (831021.1217) 

IMPLICIT INTEGER(A-Z) 

C 

C 

C SEXEC COMMUNICATE WITH THE EXEC/TRACKER SIMULATOR PROGRAM 

C CALLED "NSIM" USING CLASS I/O. 

C 

C 

C 

C THIS FUNCTION SIMULATES THE EXEC CALLS MADE BY THE DATA 
C COMPUTER TO THE EXEC COMPUTER AND THE TRACKER COMPUTER. 

C ALL CALLS ARE ROUTED TO "NSIM” VIA CLASS I/O 
C 
C 
C 

COMMON IC0M(750) 

EQUIVALENCE( ICOM( 10), LU) 

c 

c 

INTEGER IBUF( 5), IBUFF(I) 

C 

C 

EQUIVALENCE( IBUF( 1 ) , DEST) 

EQUIVALENCE( IBUF(2) , ICODE) 

EQUIVALENCE( IBUF( 3 ) , CPU) 

EQUI VALENCE( IBUF( 4 ) , ISUBF) 

EQUIVALENCE( IBUF(5) , SUBLEN) 

C 

C LU 10 IS THE EXEC COMPUTER 
C 

C LU 20 IS THE TRACKER COMPUTER 
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LOGICAL FIRST 
DATA FIRST/. TRUE./ 


0108 

0109 

0110 
01 1 1 
0112 

0113 

01 14 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 
0139 
01 40 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 


C 

C 


C 

C IS THIS THE FIRST TIME THROUGH? 

1 IF( . NOT. FIRST) GOTO 100 

FIRST=. FALSE. 

C 

C IF FIRST TIME THROUGH, GET A CLASS NUMBER AND RUN "NSIM" 
CLASS=1 OOOOOB 

CALL EXEC(17, 0,1,1 ,1,1, CLASS) 

CALL ABREG( A, B) 

IF(A.NE.-I) GOTO 20 
WRITE( LU, 1 0 ) 

10 FORMATC'/SEXEC: OUT OF CLASS NUMBERS") 

STOP 

20 CLASS=IOR(CLASS, 1 20000B) 

CLASSC=IOR( CLASS, 1 60000B) 

CLASSW=IAND(CLASS, 077777B) 

CALL EXEC(21 , CLASS, 1,1 ) 

C 

C RUN "NSIM" 

CALL EXEC(10,6HNSIM , LU, 1 77, CLASS) 

CALL ABREG( A, B) 

IF(A.EQ.O) GOTO 100 
C 

C ERROR IN SCHEDULING "NSIM", DEALLOCATE THE CLASS AND QUIT 
WRITE( LU, 30) A 

30 FORMATC'/SEXEC: ERROR ",I4," ON SCHEDULING 'NSIM'") 
CALL EXEC(21 , IAND( CLASS, 017777B),I,1 ) 

STOP 

C 

C ASSUME SEXEC CALL IS SUCCESSFUL. 

100 SEXEC=1 
C 
C 
C 

C LET'S START THE SHOW 
C GET THE LU 

EXLU=IAND(ICNWD,77B) 

c 

C GET THE SUBFUNCTION NUMBER 

ISUBF=IAND( ICNWD , 1 77700B) /1 00 B 
C 

C IS IT A CALL TO THE EXEC? 

CPU=0 

IF(EXLU.EQ.IO) CPU=2 
C 

C IS IT A CALL TO THE TRACKER? 

IF( EXLU. EQ.20) CPU=1 
C 

C SET DESTINATION CODE 
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DEST=1 


0161 
01 62 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 
01 71 
01 72 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
01.82 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 
0197 


C 

C SET ICODE 

ICODE=ICOD 

C 

C SET SUBLEN 

SUBLEN=ILEN 

C 

C SEND THE HEADER 

CALL EXEC(20,0, IBUF,5, I, I, CLASS) 

CALL ABREG(A.B) 

IF( A. EQ.-2) GOTO 20000 
C 

C IF WE ARE SENDING DATA TO "NSIM" WE HAD BETTER GET ON WITH IT. 
C WE CAN RETURN AFTER WE ARE DONE HERE. 

IF( ICODE. EQ. 1 ) GOTO 115 

CALL EXEC (20,0, IBUFF, ILEN, I, I, CLASS) 

CALL ABREG( A, B) 

IF( A. EQ.-2) GOTO 20000 
RETURN 
C 

C LOOP UNTIL WE GET OUR HEADER 
110 CALL WAIT(20) 

115 CALL EXEC(21 .CLASSC, IBUF.5) 

CALL ABREG(A.B) 

IF( A. LT. 0 .OR. (DEST.NE.O .AND. DEST.NE.2) ) GOTO 110 
CALL EXEC(21, CLASS, IBUF, 5) 

C 

C WE GOT OUR HEADER. LET'S READ THE DATA. 

CALL EXEC(21 , CLASSW, IBUFF, ILEN, SEXEC) 

RETURN 

C 

C NO ROOM IN SAM, TELL THE WORLD ABOUT THE SHORTAGE. 

20000 WRITE(LU, 20010) 

20010 FORMATC'/ SEXEC: NOT ENOUGH SAM TO FILL MY NEEDS") 

GOTO 1 
END 
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TABLE 1 

TRACKER SIMULATOR WIRING LIST 


TO HP FROM HP 


BIT# 


TB1 

48-PIN 
HP CONN 

20-41 -SPIN 
MS 3126 


BIT# 


TB3 

48-PIN 
HP CONN 

20-41 -SPIN 
MS 3126 


0 

1 

BRN 

1 

WH 

A 

0 

A 

BRN/WH 

1 

WH 

S 

1 

2 

RD 

2 

BLK 

B 

1 

B 

RD/WH 

2 

RD 

T 

2 

3 

OR 

3 

BRN 

C 

2 

C 

OR/WH 

3 

BRN 

U 

3 

4 

YEL 

4 

BLK 

D 

3 

D 

YEL/WH 

4 

RD 

V 

4 

5 

GRN 

5 

RD 

E 

4 

E 

GRN/WH 

5 

OR 

w 

5 

6 

BL 

6 

BLK 

F 

5 

F 

BL/WH 

6 

RD 

X 

6 

7 

PUR 

7 

OR 

G 

6 

H 

PUR/WH 

7 

YEL 

Y 

7 

8 

SLV 

8 

BLK 

H 

7 

J 

SLV/WH 

8 

RD 

z 

8 

9 

BLK 

9 

YEL 

J 

8 

K 

BLK/WH 

9 

GRN 

a 
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WH'S (COM) 

10 





WH'S (COM) 

10 





TB2 






TB4 






48-PIN 

20-41 -SPIN 




48-PIN 

20-41 -SPIN 


BIT# 


HP CONN 


MS 3126 


BIT# 


HP CONN 


MS 3126 


9 

10 

BLK/SLV 

1 

BLK 

K 

9 

L 

RD/OR 

1 

RD 

b 

10 

11 

BLK/BRN 

2 

GRN 

L 

10 

M 

RD/YEL 

2 

BL 

c 

11 

12 

BLK/RD 

3 

BLK 

M 

11 

N 

BRN/RD 

3 

RD 

d 

12 

13 

BLK/OR 

4 

BL 

N 

12 

P 

BRN/OR 

4 

WH 

e 

13 

14 

BLK/YEL 

5 

BLK 

P 

13 

R 

BRN/YEL 

5 

GRN 

f 


15 

BLK/GRN 

6 

NC 



S 

BRN/GRN 

6 

NC 



16 

BLK/BL 

7 

NC 



T 

BRN/BL 

7 

NC 



23 

BLK/PUR 

8 

NC 



22 

BRN/PUR 

8 

NC 



AA 

RD/GRN 

9 

NC 



Z 

BRN/SLV 

9 

NC 



24 

WH'S (COM) 

10 

GRN 

R 


BB 

WH'S (COM) 

10 

BL 

g 
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Figure 1.- Data acquisition program. 
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Figure 2.- KAO tracker simulator front panel. 















Figure 4.- KAO tracker simulator power supply. 
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Figure 5.- KAO tracker simulator cables. 
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